home *** CD-ROM | disk | FTP | other *** search
/ Next Step: Mars? / Next Step Mars (1994)(IVI).iso / braunger.dir / 00319_Script_319 < prev    next >
Text File  |  1994-11-29  |  2KB  |  74 lines
  1. on startMovie
  2.   initSearchPath
  3.   
  4.   global qtCastName,qtSprite ----,increment, L
  5.   set qtCastName = "Rubyshoe"
  6.   set qtSprite = 23
  7. end startMovie
  8.  
  9. on checkKey
  10.   if the key = RETURN then
  11.     if field "passwordbox" contains "plasma" then
  12.       go to frame "start"
  13.     else
  14.       go to frame "nopass"
  15.     end if
  16.     when keydown then nothing
  17.   end if
  18. end checkkey
  19.  
  20. on firstFrame
  21.   global qtSprite
  22.   set the movieRate of sprite qtSprite = 0
  23.   set the movieTime of sprite qtSprite = 0
  24. end firstFrame
  25.  
  26. on lastFrame
  27.   global qtSprite,qtcastname
  28.   set the movieTime of sprite qtSprite = the duration of cast qtcastName
  29. end lastFrame
  30.  
  31. on stopMovie
  32.   unLoadCast
  33. end stopMovie
  34.  
  35. on stepFwdQT
  36.   global qtSprite,qtcastname
  37.   set the movieRate of sprite qtSprite = 0
  38.   if the movieTime of sprite qtSprite < the duration of cast qtcastname then
  39.     set the movieTime of sprite qtSprite = the movieTime of sprite qtSprite + 1
  40.   end if
  41. end stepFwdQT
  42.  
  43. on stepRevQT
  44.   global qtSprite
  45.   set the movieRate of sprite qtSprite = 0
  46.   if the movieTime of sprite qtSprite = 0 then exit
  47.   set the movieTime of sprite qtSprite = the movieTime of sprite qtSprite - 1
  48. end stepRevQT
  49.  
  50. on frameCounter
  51.   global qtSprite
  52.   set the text of cast "counter" to string(the movieTime of sprite qtSprite)
  53. end frameCounter
  54.  
  55. --on rewindQT
  56. global qtSprite
  57. set the movieRate of sprite qtSprite = -3
  58. --set the movieTime of sprite qtSprite = 0
  59. end rewindQT
  60.  
  61. on pauseQT
  62. global qtSprite
  63. set the movieRate of sprite qtsprite = 0
  64. end pauseQT
  65.  
  66. on playQT
  67. global qtSprite,qtcastName
  68. set the movieRate of sprite qtSprite = 1
  69. end playQT
  70.  
  71. on playQT2
  72. global qtSprite,qtcastName
  73. set the movieRate of sprite qtSprite = 1
  74. end playQT2